object Form18: TForm18 Left = 269 Top = 143 BorderStyle = bsNone Caption = 'Kiral�k Emlak Listesi' ClientHeight = 480 ClientWidth = 640 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 0 Top = 0 Width = 640 Height = 480 AutoSize = True Picture.Data = {} OnMouseDown = Image1MouseDown end object Label1: TLabel Left = 40 Top = 288 Width = 42 Height = 13 Caption = 'Semt Ad�' Transparent = True end object Label2: TLabel Left = 168 Top = 312 Width = 53 Height = 13 Caption = 'Fiyat Aral���' Transparent = True end object Label3: TLabel Left = 40 Top = 336 Width = 70 Height = 13 Caption = '�lk Fiyat De�eri' Transparent = True end object Label4: TLabel Left = 40 Top = 376 Width = 84 Height = 13 Caption = '�kinci Fiyat De�eri' Transparent = True end object Label5: TLabel Left = 408 Top = 312 Width = 28 Height = 13 Caption = 'Aral���' Transparent = True end object Label6: TLabel Left = 272 Top = 336 Width = 43 Height = 13 Caption = '�lk De�er' Transparent = True end object Label7: TLabel Left = 272 Top = 376 Width = 57 Height = 13 Caption = '�kinci De�er' Transparent = True end object Image2: TImage Left = 384 Top = 308 Width = 13 Height = 15 AutoSize = True Picture.Data = {} Transparent = True end object Image3: TImage Left = 72 Top = 408 Width = 151 Height = 38 AutoSize = True Picture.Data = {} Visible = False end object Image4: TImage Left = 248 Top = 408 Width = 151 Height = 38 AutoSize = True Picture.Data = {} Visible = False end object Image5: TImage Left = 416 Top = 408 Width = 151 Height = 38 AutoSize = True Picture.Data = {} Visible = False end object Label8: TLabel Left = 80 Top = 416 Width = 137 Height = 25 Alignment = taCenter AutoSize = False Caption = 'Bul' Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnMouseDown = Label8MouseDown OnMouseUp = Label8MouseUp end object Label9: TLabel Left = 256 Top = 416 Width = 137 Height = 25 Alignment = taCenter AutoSize = False Caption = 'T�m�n� G�ster' Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnMouseDown = Label9MouseDown OnMouseUp = Label9MouseUp end object Label10: TLabel Left = 424 Top = 416 Width = 137 Height = 25 Alignment = taCenter AutoSize = False Caption = 'Yazd�r' Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnMouseDown = Label10MouseDown OnMouseUp = Label10MouseUp end object Label11: TLabel Left = 488 Top = 280 Width = 116 Height = 13 Caption = 'Arama Se�ene�ini Se�in' Transparent = True end object Image6: TImage Left = 536 Top = 32 Width = 30 Height = 28 AutoSize = True Picture.Data = {} OnMouseDown = Image6MouseDown OnMouseUp = Image6MouseUp end object Image7: TImage Left = 568 Top = 32 Width = 30 Height = 28 AutoSize = True Picture.Data = {} OnMouseDown = Image7MouseDown OnMouseUp = Image7MouseUp end object Image8: TImage Left = 536 Top = 32 Width = 30 Height = 28 AutoSize = True Picture.Data = {} Visible = False end object Image9: TImage Left = 568 Top = 32 Width = 30 Height = 28 AutoSize = True Picture.Data = {} Visible = False end object Label12: TLabel Left = 136 Top = 352 Width = 38 Height = 13 Caption = 'Label12' Transparent = True Visible = False end object Label13: TLabel Left = 136 Top = 392 Width = 38 Height = 13 Caption = 'Label13' Transparent = True Visible = False end object Label14: TLabel Left = 272 Top = 288 Width = 31 Height = 13 Caption = 'Durum' Transparent = True end object DBGrid1: TDBGrid Left = 40 Top = 64 Width = 561 Height = 201 DataSource = DataSource1 Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ReadOnly = True TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDblClick = DBGrid1DblClick Columns = < item Expanded = False FieldName = 'Emlak' Width = 121 Visible = True end item Expanded = False FieldName = 'Semtadi' Title.Caption = 'Semt Ad�' Width = 112 Visible = True end item Expanded = False FieldName = 'Fiyati' Title.Caption = 'Kiras�' Width = 96 Visible = True end item Expanded = False FieldName = 'Metre2' Visible = True end item Expanded = False FieldName = 'Kat' Visible = True end item Expanded = False FieldName = 'Oda' Width = 41 Visible = True end item Expanded = False FieldName = 'Isisistemi' Title.Caption = 'Is� Sistemi' Width = 95 Visible = True end> end object Edit1: TEdit Left = 136 Top = 328 Width = 121 Height = 21 MaxLength = 17 TabOrder = 1 OnExit = Edit1Exit OnKeyPress = Edit1KeyPress OnKeyUp = Edit1KeyUp end object Edit2: TEdit Left = 136 Top = 368 Width = 121 Height = 21 MaxLength = 17 TabOrder = 2 OnExit = Edit2Exit OnKeyPress = Edit1KeyPress OnKeyUp = Edit2KeyUp end object Edit3: TEdit Left = 344 Top = 328 Width = 121 Height = 21 MaxLength = 10 TabOrder = 3 OnKeyPress = Edit1KeyPress end object Edit4: TEdit Left = 344 Top = 368 Width = 121 Height = 21 MaxLength = 10 TabOrder = 4 OnKeyPress = Edit1KeyPress end object DBLookupComboBox1: TDBLookupComboBox Left = 136 Top = 280 Width = 121 Height = 21 KeyField = 'Semtler' ListField = 'Semtler' ListSource = DataSource2 TabOrder = 5 end object lb1: TListBox Left = 488 Top = 294 Width = 113 Height = 97 Hint = 'Se�ti�ini Se�ene�e G�re Arama Yapma' ItemHeight = 13 Items.Strings = ( 'Semt Ad�na G�re' 'Fiyat Aral���na G�re' 'Metre Aral���na G�re' 'Semt ve Fiyata G�re' 'Semt ve Metreye G�re' 'Fiyat ve Metreye G�re' 'T�m�ne G�re') ParentShowHint = False ShowHint = True TabOrder = 6 end object ComboBox1: TComboBox Left = 344 Top = 280 Width = 121 Height = 21 ItemHeight = 13 TabOrder = 7 Text = 'T�m�' Items.Strings = ( 'Kiraland�' 'Kiralanmad�' 'T�m�') end object DataSource1: TDataSource DataSet = Query1 Left = 24 Top = 16 end object DataSource2: TDataSource DataSet = Table2 Left = 184 Top = 24 end object Table2: TTable Active = True TableName = 'semtler.db' Left = 216 Top = 24 object Table2No: TAutoIncField FieldName = 'No' ReadOnly = True end object Table2Semtler: TStringField FieldName = 'Semtler' Size = 15 end end object Query1: TQuery Active = True AutoRefresh = True SQL.Strings = ( 'select * from kegiris') Left = 80 Top = 24 object Query1Isim: TStringField DisplayWidth = 24 FieldName = 'Isim' end object Query1Fiyati: TCurrencyField DisplayWidth = 12 FieldName = 'Fiyati' end object Query1Telefon: TStringField DisplayWidth = 24 FieldName = 'Telefon' end object Query1Semtadi: TStringField DisplayWidth = 19 FieldName = 'Semtadi' end object Query1Metre2: TFloatField DisplayWidth = 12 FieldName = 'Metre2' end object Query1No: TIntegerField DisplayWidth = 12 FieldName = 'No' end object Query1Kat: TStringField FieldName = 'Kat' Size = 6 end object Query1Oda: TStringField FieldName = 'Oda' end object Query1Isisistemi: TStringField FieldName = 'Isisistemi' end object Query1Emlak: TStringField FieldName = 'Emlak' end end end